home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed6.d64 / speed spell 5 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  287 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 111 IFUA=39THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  29. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  30. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  31. 299 :
  32. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  33. 310 REM PROJECT DIRECTOR: FRANK WINTER
  34. 320 REM PROGRAM NAME: SPEED SPELL 5
  35. 330 REM WRITTEN BY: UNKNOWN
  36. 340 REM REVISED BY: JAN SAWCZAK"
  37. 350 [143] UPDATED BY: BILL CUMBERLAND
  38. 360 [143] IF REQUIRED, THE WORD LIST CAN BE
  39. 365 [143] MODIFIED TO INCLUDE MORE APPROPRIATE    WORDS
  40. 370 [143] CHANGE OR ADD WORDS INTO DATA           LINES 1900-2345
  41. 375 [143] MAXIMUM WORD LENGTH IS SET AT 20        LETTERS.
  42. 380 [143] TO ACCOMMODATE LONGER WORDS, CHANGE THE VALUE OF 'UL' IN LINE 1380
  43. 385 [143] NOTE: [196]O NOT CHANGE OR DELETE DATA LINE 2350
  44. 399 :
  45. 400 [153]"LOAD":[151]UT,UL%:[151]UY,15:[151]UX,15:[151]646,9
  46. 410 [153]"              RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT
  47. 420 PRINT" [212]HIS PROGRAM IS A WORD GAME TO HELP"
  48. 430 PRINT" YOU PRACTISE [199]RADE 5 SPELLING WORDS."
  49. 440 PRINT"[215]ATCH THE BRIEF DISPLAY OF EACH WORD.
  50. 450 [153]" (null)HEN TYPE WHAT YOU SEE.
  51. 460 GOSUB820:RETURN
  52. 499 :
  53. 500 REM <YES> SOUND
  54. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  55. 510 POKE54296,15:POKE54277,42:POKE54278,250
  56. 515 POKE54276,23:POKE54273,23:POKE54272,191
  57. 520 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  58. 525 POKE54296,0:RETURN
  59. 530 REM <NO> SOUND
  60. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  61. 540 POKE54296,15:POKE54277,18:POKE54278,242
  62. 545 POKE54276,33:POKE54273,4:POKE54272,48
  63. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  64. 555 POKE54296,0:RETURN
  65. 560 REM <BLIP> SOUND
  66. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  67. 570 POKE54296,8:POKE54277,42:POKE54278,250
  68. 575 POKE54276,23:POKE54273,23:POKE54272,191
  69. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  70. 585 POKE54296,0:RETURN
  71. 590 FORTM=1TO500:NEXT:RETURN
  72. 591 FORTM=1TO1000:NEXT:RETURN
  73. 592 FORTM=1TO2000:NEXT:RETURN
  74. 595 FORTM=1TO5000:NEXT:RETURN
  75. 599 :
  76. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  77. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB591
  78. 802 PRINT"                                        [146]";
  79. 803 PRINT"                                        [146]";
  80. 804 PRINT"                                        [146]";
  81. 805 PRINT"             SPEED SPELL 5              [146]";
  82. 806 PRINT"                                        [146]";
  83. 807 PRINT"                                        [146]":GOSUB591
  84. 808 PRINT"          INSTRUCTIONS?  Y/N ":GOSUB560
  85. 809 GETR$:IFR$<>"Y"ANDR$<>"N"THEN809
  86. 810 IFR$="Y"THENGOSUB400
  87. 811 PRINT"[147]  AND AWAY WE GO!
  88. 812 [141]591:[141]500:[141]591
  89. 813 [137]1000
  90. 815 :
  91. 820 [141]591:[141]560
  92. 822 [151]UN,0:[153][200](UD$,24);"  (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE  WAIT"
  93. 824 [161]UI$:[139]UI$[179][177]" "[167]824
  94. 826 [142]
  95. 830 [141]591:[141]560
  96. 835 [151]UN,0:[153][200](UD$,24);"PRINT  (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE  WAITLIST"
  97. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  98. 845 [142]
  99. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  100. 855 [153]" --------------------------------------"
  101. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT"
  102. 865 UH[178]0:[153]"":[142]
  103. 875 [153][200](UD$,24);"       ASCIFTEEN SECONDS PLEASE...     ":[142]
  104. 899 :
  105. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  106. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  107. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  108. 905 UD$[178]"":UP$[178]"                                      "
  109. 906 L[178]650:[134] T$(L),A$(30)
  110. 909 [142]
  111. 910 [141]900:[153]"LOAD "
  112. 920 [137]800
  113. 999 :
  114. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  115. 1050 UT$[178]" (null)PEED (null)PELL 5":UP[178]0
  116. 1100 [151]UT,UL%:UG$[178]""
  117. 1115 [153]"LOAD    PEEKEFORE BEGINNING THIS CHR$RADE 5 WORD"
  118. 1120 [153]"    GAME, DO YOU WISH TO SEE THE WORDS":[141]560
  119. 1125 [153]"    (ALL 483 OF THEM)? (Y/N)  ";
  120. 1135 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]1135
  121. 1140 [139]R$[178]"Y"[167]1670
  122. 1150 [141]8000:CR[178]0:WRO[178]0:[141]875:UG$[178]"":[140]
  123. 1165 T[178].1
  124. 1170 J[178]T[172]60:B[178]147
  125. 1185 C[178]0
  126. 1195 [135] R$
  127. 1200 [139] R$[178]"XXX" [167] 1225
  128. 1205 C[178]C[170]1
  129. 1210 [139] C[177]L [167] [153]"(null)OO MANY WORDS CHANGE LINE 906 SO THAT (null)> NO. OF WORDS"
  130. 1215 T$(C)[178]R$
  131. 1220 [137] 1195
  132. 1225 R[178][187]([171]TI)
  133. 1245 [153]"LOAD ATN WORD WILL BE FLASHED BETWEEN THESE    LINES.":[141]591
  134. 1250 [153]" (null)ATCH CLOSELY!":[141]591
  135. 1260 [153]"              ---------
  136. 1270 PRINT"              ---------":GOSUB560:GOSUB560:GOSUB592
  137. 1295 PRINT" [215]E'LL START AT";T;"SECONDS.":UP=0:UQ=0
  138. 1315 UQ=UQ+1:GOSUB 830
  139. 1320 R=INT(C*RND(1))+1
  140. 1325 IF R=P1 OR R=P2 OR R=P3 THEN 1320
  141. 1330 IF R=P4 OR R=P5 THEN 1320
  142. 1335 IF UQ>NW THEN 1500
  143. 1337 UH=1:UG$="[215]ORD #":GOSUB850:GOSUB 1475
  144. 1340 GOSUB590
  145. 1345 GOSUB560:GOSUB560:PRINTLEFT$(UD$,13);TAB(20-(LEN(T$(R)))/2);
  146. 1347 PRINTT$(R)
  147. 1350 S=TI
  148. 1355 IF TI-S<J THEN 1355
  149. 1360 REM
  150. 1365 UP=UP-1:GOSUB850
  151. 1375 PRINT" [215]HAT WAS IT? >>>>  ";
  152. 1380 US$="":UL=20:GOSUB35:R$=UR$
  153. 1385 PRINT
  154. 1390 IF R$<>T$(R) THEN 1440
  155. 1395 GOSUB500:PRINT"[158] [212]HAT'S RIGHT! >>>  "T$(R)" [146][155]"
  156. 1400 CR=CR+1:J=J-3
  157. 1401 GOSUB 1800
  158. 1405 IF J<1.5 THEN J=1.5
  159. 1410 PRINT
  160. 1415 P1=P2:P2=P3:P3=P4:P4=P5:P5=R
  161. 1417 IF UP>9 THEN 1315
  162. 1420 PRINT" [212]HE NEXT ONE WILL BE DISPLAYED"
  163. 1425 PRINT" FOR";J/60;"SECONDS."
  164. 1435 GOTO 1315
  165. 1440 GOSUB530:PRINT"[150]             [215][210][207][206][199]! [146] [201]T WAS -  ":WRO=WRO+1
  166. 1442 FORFL=1TO11
  167. 1444 PRINT""TAB(16-(LEN(T$(R))/2))" >>>"CHR$(18-128*(FL/2=INT(FL/2)))" "T$(R)" [146]<<<[145]"
  168. 1446 FORTX=1TO100:NEXT:NEXT
  169. 1448 PRINT"[155]":GOSUB 1800
  170. 1450 J=J+3
  171. 1455 IF INT(J/3)<>J/3 THEN J=3*INT(J/3)
  172. 1460 GOTO 1410
  173. 1475 NQ=NQ+1
  174. 1480 PRINT"-----------"
  175. 1485 PRINT"-----------"
  176. 1486 RETURN
  177. 1500 REM SCORE
  178. 1510 POKE53280,0:POKE53281,0:POKE646,13:SR=CR/25:SC=SR*100
  179. 1520 PRINT"[147]       [200]ERE ARE YOUR RESULTS..... [146]":GOSUB560:GOSUB591
  180. 1530 PRINT"      [217]OUR SCORE IS:";SC;"PER CENT.":GOSUB591
  181. 1540 PRINT"      [206]UMBER OF CORRECT WORDS:";CR:GOSUB591
  182. 1550 PRINT"      [206]UMBER OF WRONG WORDS  :";WRO:IFWRO>0THENGOSUB530
  183. 1555 GOSUB591
  184. 1560 IFCR=25THENPRINT"[158]               [197][216][195][197][204][204][197][206][212]!               [146][153]":GOSUB500
  185. 1565 IFCR=>23THENPRINT"[159]               [199][207][207][196][160][215][207][210][203]!               [146][153]"
  186. 1570 IFCR=>20THENPRINT"[153]            [217]OU CAN DO BETTER.          [146][153]"
  187. 1575 IFCR<20THENPRINT"[150]        [217]OU HAVE A LOT TO LEARN!        [146][153]":GOSUB530
  188. 1580 GOSUB830
  189. 1600 PRINT"[147]  [217]OU HAVE A CHOICE:
  190. 1605 [153]"  (null)RESS  (null) WAIT  TO REPEAT THIS PROGRAM
  191. 1610 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU
  192. 1615 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1615
  193. 1620 [139]R$[178]"R"[167][140]:[137]800
  194. 1630 [153]"LOAD  (null)ETURNING TO THE DISK (null)VAL(null)(null)
  195. 1635 LOAD"MENU",8
  196. 1640 RUN
  197. 1645 END
  198. 1669 :
  199. 1670 RESTORE:UG$="[197]XAMINE [215]ORDS":UP=0
  200. 1680 FORA=1TO20
  201. 1690 READA$(A)
  202. 1695 IFA$(A)="XXX"THEN1710
  203. 1700 NEXTA
  204. 1710 UH=1:GOSUB850
  205. 1715 FORI=1TOASTEP2
  206. 1720 IFA$(I)="XXX"THENPRINT:GOTO1150
  207. 1730 PRINT"";A$(I);
  208. 1740 IFA$(I+1)="XXX"THEN1150
  209. 1750 PRINTTAB(20);A$(I+1)
  210. 1760 NEXTI
  211. 1770 GOSUB830
  212. 1785 GOTO1680
  213. 1800 PRINT"[217]OUR SCORE IS "CR"CORRECT"
  214. 1810 PRINT"              "WRO"WRONG"
  215. 1820 RETURN
  216. 2000 DATA"ABLE","ACHE","ACT","ACTION","ACTOR","ACTRESS","ADDITION","ADMIT"
  217. 2005 DATA"ADOPT","ADVANCE","ADVENTURE","AGENT","AGREE","AID","AIM","ALLOW"
  218. 2010 DATA"AMOUNT","ANGER","ANGRY","ANSWER","ANSWERED","APART","APRON","ARGUE"
  219. 2015 DATA"ARMY","ARREST","ARROW","ARTIST","ATTEND","ATTIC","AVENUE","AVERAGE"
  220. 2020 DATA"AWFUL","BACON","BADGE","BARREL","BASE","BASEMENT","BATHE","BATTLE"
  221. 2025 DATA"BEAST","BEAUTY","BEGUN","BELOW","BENEATH","BENT","BIGGEST","BIRTH"
  222. 2030 DATA"BITTER","BLAME","BLANKET","BLEW","BLOOD","BLOOM","BOARD","BORROW"
  223. 2035 DATA"BOTHER","BOUND","BOW","BOWL","BRAIN","BRANCHES","BREAKING","BRIDGE"
  224. 2040 DATA"BROUGHT","BUILDING","BUTCHER"
  225. 2045 DATA"BUTTON","CABBAGE","[195]ANADIAN","CANAL","CANOE","CAPTIVE","CAPTURE"
  226. 2050 DATA"CAREFULLY","CARRYING","CASE","CAUGHT","CELSIUS","CHALK","CHARGE"
  227. 2055 DATA"CHEQUE","CHEERFUL","CHERRY","CHIEF","CHOICE","CHOOSE","CHOSE"
  228. 2060 DATA"COLLAR","COLLECT","COLOURED","COMMON","COMPANY","CONTEST","CONTROL"
  229. 2065 DATA"COPPER","COPY","CORRECT","COUGH","COUNTY","COUPLE","COURSE","COUSIN"
  230. 2070 DATA"COVER","COVERING","CROWD","CRUSH","CURE","CURL","DAILY","DAIRY"
  231. 2075 DATA"DAMAGE","DARKNESS","DAUGHTER","DEAL","DEALER","DEATH","DECAY"
  232. 2080 DATA"DECIMAL","DELIGHTED","DELIVER","DEPART","DEW","DIGGING","DINING"
  233. 2085 DATA"DIRECT","DISCOVER","DISLIKE","DITCH","DIVIDE","DODGE","DOLLAR"
  234. 2090 DATA"EASE","EDGE","ELEVEN","EMPTY","ENOUGH","ENTER","EQUAL","EVENT"
  235. 2095 DATA"EVERYBODY","EXCITING","EXPECT","EXPLORE","EXPRESS","EXTRA","FALSE"
  236. 2100 DATA"FAMOUS","FANCY","FASTEN","FAULT","FEAR","FEATHER","FELLOW","FIFTH"
  237. 2105 DATA"FORGETFUL","FOUGHT","FOUNTAIN","FREEZE","FRIENDLY","FRIGHTEN"
  238. 2110 DATA"FURNISH","FUTURE","GAIN","GARAGE","GATHERS","GEM","GENERAL","GENTLE"
  239. 2115 DATA"GENTLEMAN","GIANT","GLOBE","GOAL","GRASSHOPPER","GRAVE","GROUP"
  240. 2120 DATA"GROWN","GROWTH","GUESSED","HADN'T","HANDLE","HARBOUR","HARDER"
  241. 2125 DATA"HARDLY","HARVEST","HASTY","HATCH","HEAVEN","HEAVY","HERD","HEALTH"
  242. 2130 DATA"HERO","HIGHER","HIRE","HISTORY","HOCKEY","HOLIDAY","HOLLOW","HOPING"
  243. 2135 DATA"HOSE","HOWEVER","HUNGRY","HUNT","HURRYING","HYDRO","IDEA","IDLE"
  244. 2140 DATA"INFORM","INSECT","INSPECT","INVENT","INVENTED","INVISIBLE","IRON"
  245. 2145 DATA"ISLAND","JET","JOIN","JOKE","JUDGE","JUDGED","JUNIOR","KILOGRAM"
  246. 2150 DATA"KINDNESS","KITCHEN","KNEE","KNELT","KNIT","KNIVES","KNOCK","KNOWN"
  247. 2155 DATA"LAND","LANGUAGE","LARGELY","LATELY","LAWFUL","LEADER","LEATHER"
  248. 2160 DATA"LEDGE","LESS","LEVEL","LIKELY","LIMB","LISTEN","LISTENING","LIVELY"
  249. 2165 DATA"MACHINE","MAGICIAN","MANE","MANNER","MARKET","MATCHES","MATTER"
  250. 2170 DATA"MEAN","MEANING","MEMBER","MIGHTY","MILD","MILLION","MINING","MINUTE"
  251. 2175 DATA"MISTAKE","MISTAKEN","MODERN","MOIST","MOMENT","MOSTLY","MOUNTAIN"
  252. 2180 DATA"ORE","OTHER","OURSELVES","OUTDOORS","OUTLINE","PALACE","PARADE"
  253. 2185 DATA"PARENTS","PATCH","PAYING","PATENT","PEACE","PERFECT","PERFECTLY"
  254. 2190 DATA"PERFUME","PERHAPS","PERIOD","PERSON","PICNIC","PICTURE","PIECE"
  255. 2195 DATA"PILOT","PICTURE","PLANNED","PLANNING","PLEASANT","POEM","POLAR"
  256. 2200 DATA"POSTAGE","POSTER","POST OFFICE","POUND","POWDER","POWER","POWERFUL"
  257. 2205 DATA"PRAISE","PREPARE","PREPARING","PRESENTED","PRESS","PREY","PRICED"
  258. 2210 DATA"PRINCE","PRINCESS","PRISON","PRISONER","PROBLEM","PRODUCE","PRODUCT"
  259. 2215 DATA"PROMISE","PROMISED","PROTECT","PROVE","PUBLIC","PUPIL","PURPLE"
  260. 2220 DATA"PURSE","QUARTER","QUESTION","QUIET","QUILT","RAISING","REALLY"
  261. 2225 DATA"REASON","RECESS","RECORD","REDUCE","REFUSE","REMEMBER","REMIND"
  262. 2230 DATA"REPAIR","REPEAT","REPLIED","REPLY","RETURN","REWARD","REWRITE"
  263. 2235 DATA"RIBBON","RICHES","RIFLE","RISE","RISEN","ROUGH","ROYAL","RUBBER"
  264. 2240 DATA"SAFETY","SAMPLE","SCENE","SCORE","SCRATCH","SCREAM","SEAL","SEASON"
  265. 2245 DATA"SECRET","SERVE","SERVICE","SETTLE","SETTLEMENT","SEVENTEEN","SHARE"
  266. 2250 DATA"SHARPEN","SHED","SHELF","SHINING","SHIPPING","SHOPPING","SHOULDER"
  267. 2255 DATA"SHOVEL","SHOWN","SICKNESS","SIGNAL","SILENCE","SILENT","SIMPLE"
  268. 2260 DATA"SKIN","SKIPPER","SKIRT","SLICE","SLIPPED","SLIPPERY","SMELL"
  269. 2265 DATA"SOLID","SOLVE","SOONER","SOUR","SOURCE","SOUTHERN","SPARKLE","SPEED"
  270. 2270 DATA"SPOKEN","STABLE","STATE","STATION","STEAL","STEEL","STEER","STIR"
  271. 2275 DATA"STOCK","STORMY","STRANGER","STRAWBERRY","STRETCH","STUDENT","STUDIES"
  272. 2280 DATA"SUBSTANCE","SUDDEN","SUDDENLY","SUGAR","SUPPOSE","SURPRISE","SWIFT"
  273. 2285 DATA"TAILOR","TASTE","TERM","THEMSELVES","THIRTY-SIX","THIEF","THIEVES"
  274. 2290 DATA"THOUGHT","THRESH","THREW","THRILL","THROAT","THRONE","THROUGH"
  275. 2295 DATA"TIMBER","TIRED","TOMATO","TOOLS","TOUCH","TOUGH","TRACTOR","TRAPPER"
  276. 2300 DATA"TRAVEL","TRAVELLER","TRIBE","TRIM","TRIMMED","TROUBLE","TRUE"
  277. 2305 DATA"TRUTH","TRUTHFUL","TRYING","TWENTY-FIVE","UNABLE","UNEASY","UNIFORM"
  278. 2310 DATA"UNITE","UNTIE","USUAL","VACATION","VALLEY","VALUE","VERSE","VESSEL"
  279. 2315 DATA"WEALTH","WESTERN","WHEREVER","WHISTLE","WHOSE","WILLING","WINDY"
  280. 2320 DATA"WINNER","WINNING","WOMEN","WONDERFUL","WORLD","WORRY","WORTH"
  281. 2325 DATA"WRITER","WRONG","YOU'RE","YOUNGER","YOURSELVES","ZERO"
  282. 2330 DATA"XXX"
  283. 8000 REM SET WORDS AT 25
  284. 8010 PRINT"[147]        [212]HERE WILL BE 25 WORDS.":NW=25
  285. 8020 RETURN
  286. 8100 REM WHC 90:11:29
  287.